
with Ada.Strings.Unbounded;
use Ada.Strings.Unbounded;

package playlist is

   type MP3_Eintrag_Type is array (1 .. 50) of Unbounded_String;

   type Playlist_Type is tagged
   record
      First   : Natural := 0;
      Last    : Natural := 0;
      Current : Natural := 0;
      Eintrag : MP3_Eintrag_Type;
   end record;

   function is_Empty (p : Playlist_Type) return Boolean;
end playlist;
